polarplot[ 2/sqrt[4-3 cos[s]**2], {s,0,6} ]